home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.37 / pointer / hand-pointer.p < prev    next >
Text File  |  1994-09-17  |  2KB  |  68 lines
  1.  
  2.  
  3. { Programm:    Pointer (Hand)
  4.   ~~~~~~~~~
  5.   Sprache:     KickPascal2.12/OS2
  6.   ~~~~~~~~
  7.   Sinn:        BusyPointer...
  8.   ~~~~~
  9.   Autor:       PackMAN
  10.   ~~~~~~       c/o Falk Zühlsdorff
  11.                Lindenberg 66
  12.                D-98693 Ilmenau/Thüringen
  13.  
  14.   Copyright:   GIFTWARE,  jeder Nutzer sendet mir ein z.B. eine
  15.   ~~~~~~~~~~              Disk mit guten C / PascalSource zu folgenden
  16.                           Themen: Packeralg. / Graphikdruck /
  17.                                   Printer.device  oder gute neue PD zu... }
  18.  
  19. Program Pointer;
  20. USES Intuition;
  21. TYPE  Poifeld   = array[1..40] of Word;
  22. VAR   Win     : ^Window;
  23.       Msg     : ^IntuiMessage;
  24.       e       : boolean;STATIC;
  25.       Poiptr  : ^Poifeld;
  26.       waitreq : Requester;
  27.       req     : boolean;
  28.  
  29. BEGIN
  30.  Poiptr:=NIL;
  31.  Poiptr:=PTR(Alloc_Mem(SizeOf(Poifeld),MEMF_CHIP+MEMF_CLEAR));
  32.  IF Poiptr=NIL THEN exit;
  33.  Poiptr^:=Poifeld( $0000,$0000,$0000,$e000,$6000,$f0c0,$70c0,$f9e0,
  34.                    $38e0,$7df0,$1c70,$3ff8,$2e70,$7ff8,$37b0,$7ff8,
  35.                    $1ff0,$3ff8,$2df0,$7ff8,$3ff8,$7ffc,$1ff8,$3fff,
  36.                    $2bf6,$7ff9,$1fee,$3ff1,$0fdc,$1fe2,$0038,$0fc4,
  37.                    $0070,$0088,$0060,$0090,$0000,$00e0,$0000,$0000);
  38.  
  39.  Win:=Open_Window(200,0,300,100,$0203,_CLOSEWINDOW,
  40.          ACTIVATE+WINDOWCLOSE,
  41.          'Busy (wait 2 Sec.)',Nil,0,0,0,0);
  42.  IF Win=Nil THEN  exit;
  43.  
  44.  e:=false;
  45.  
  46.  InitRequester(^waitReq);      {Req: 0*0*0*0}
  47.  req:=Request(^waitReq,Win);
  48.  
  49.  SetPointer(Win,PoiPtr,18,16,-6,-1);
  50.  
  51.  delay(100);
  52.  
  53.  ClearPointer(Win);
  54.  
  55.  EndRequest(^waitReq,WIN);
  56.  
  57.  SetWindowtitles(Win,'Clock-Pointer © by PackMAN',Nil);
  58.  
  59.  REPEAT
  60.   Msg:=Wait_Port(Win^.UserPort);
  61.   Msg:=Get_Msg(Win^.UserPort);
  62.   Reply_Msg(Msg);
  63.   IF Msg^.Class=_CLOSEWINDOW THEN e:=true;
  64.  UNTIL e;
  65.  Close_Window(Win);
  66.  Free_Mem(Long(Poiptr),sizeof(Poifeld));
  67. END.
  68.